home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / jul90.zip / TIP552.LSP < prev    next >
Text File  |  1990-07-09  |  370b  |  13 lines

  1. ;TIP552.LSP   Dimension to Wall Centrelines   (c)1990, Jeffrey Morris
  2. (defun btwn ( / ENT1 ENT2)
  3.   (setq ENT1 (getpoint "First line: ")
  4.         ENT2 (getpoint "Second line: ")
  5.   )
  6.   (list
  7.     (+ (car ENT1)(* 0.5 (- (car ENT2)(car ENT1))))
  8.     (+ (cadr ENT1)(* 0.5 (- (cadr ENT2)(cadr ENT1))))
  9.     (+ (caddr ENT1)(* 0.5 (- (caddr ENT2)(caddr ENT1))))
  10.   )
  11. )
  12. 
  13.